home *** CD-ROM | disk | FTP | other *** search
/ IRIX Base Documentation 2001 May / SGI IRIX Base Documentation 2001 May.iso / usr / share / catman / p_man / cat3 / f90 / pxffastexit.z / pxffastexit
Encoding:
Text File  |  1998-10-30  |  2.3 KB  |  56 lines
  1. PXFFASTEXIT(3F)                                        Last changed: 3-4-98
  2.  
  3.  
  4. NNAAMMEE
  5.      PPXXFFFFAASSTTEEXXIITT - Terminates a Fortran program
  6.  
  7. SSYYNNOOPPSSIISS
  8.      SSUUBBRROOUUTTIINNEE PPXXFFFFAASSTTEEXXIITT ((_i_s_t_a_t_u_s))
  9.      IINNTTEEGGEERR _i_s_t_a_t_u_s
  10.  
  11. IIMMPPLLEEMMEENNTTAATTIIOONN
  12.      UNICOS, UNICOS/mk, and IRIX systems
  13.  
  14. SSTTAANNDDAARRDDSS
  15.      IEEE standard interface for FORTRAN 77
  16.  
  17. DDEESSCCRRIIPPTTIIOONN
  18.      The PPXXFFFFAASSTTEEXXIITT subroutine uses __eexxiitt(2) to terminate a process.
  19.      PPXXFFFFAASSTTEEXXIITT ends the execution of a Fortran program.
  20.  
  21.      The following is the valid argument for this routine:
  22.  
  23.      _i_s_t_a_t_u_s   A default integer input variable containing the status to be
  24.                returned to the parent process of the terminated process.
  25.  
  26.      On IRIX systems, this routine is in lliibbffoorrttrraann..ssoo which is linked by
  27.      default when compiling programs with the MIPSpro 7 Fortran 90 compiler
  28.      or when compiling programs with the --ccrraayylliibbss option to the MIPSpro
  29.      7.2 F77 compiler.
  30.  
  31.      When using the CF90 compiler or MIPSpro 7 Fortran 90 compiler on
  32.      UNICOS, UNICOS/mk, or IRIX systems, all arguments must be of default
  33.      kind unless documented otherwise. On UNICOS and UNICOS/mk, default
  34.      kind is KKIINNDD==88 for integer, real, complex, and logical arguments; on
  35.      IRIX systems, the default kind is KKIINNDD==44.
  36.  
  37. NNOOTTEESS
  38.      Replace the subroutine reference to EEXXIITT or __eexxiitt(()) with a subroutine
  39.      call to PPXXFFFFAASSTTEEXXIITT.
  40.  
  41. EEXXAAMMPPLLEESS
  42.                 PROGRAM PXFTEST
  43.                 INTEGER ISTATUS
  44.                 IERROr = 2
  45.                 CALL PXFFASTEXIT(ISTATUS)
  46.           !
  47.           !  PRINT should not be executed if the call to PXFFASTEXIT
  48.           !  is successful.
  49.           !
  50.                 PRINT *,'FAILED: PXFFASTEXIT CALL RETURNED'
  51.                 END
  52.  
  53. SSEEEE AALLSSOO
  54.      _A_p_p_l_i_c_a_t_i_o_n _P_r_o_g_r_a_m_m_e_r'_s _L_i_b_r_a_r_y _R_e_f_e_r_e_n_c_e _M_a_n_u_a_l, publication
  55.      SR-2165, for the printed version of this man page.
  56.